home *** CD-ROM | disk | FTP | other *** search
/ Aminet 43 / Aminet 43 (2001)(GTI - Schatztruhe)[!][Jun 2001].iso / Aminet / comm / mail / YAMGenesis.lha / YAMGenesis / GenesisQuit.yam < prev    next >
Text File  |  2001-03-01  |  790b  |  35 lines
  1. /* GenesisQuit.yam - Quit Genesis if started from YAM.
  2.  *
  3.  * $VER: GenesisQuit.yam 1.00 (1.3.01) © H. van der Ree <hivdree@uwnet.nl>
  4.  */
  5.  
  6. OPTIONS RESULTS
  7.  
  8. /* Don't quit if one of these applications is running */
  9. ports = "IBROWSE VOYAGER AMFTP.1 AWebControlPort ATC_MAIN ATC_TRADER.1"
  10.  
  11. interface = GETVAR(GENESISINTERFACE, "GLOBAL")
  12. genesisport = "GENESIS"
  13.  
  14. action = GETVAR(STARTEDBYYAM, "GLOBAL")
  15. IF action = "YES" THEN DO
  16.   DO i = 1 TO WORDS(ports)
  17.     IF SHOW('P', WORD(ports,i)) THEN CALL LastBits
  18.   END
  19.  
  20.   IF SHOW('P', genesisport) THEN DO
  21.     ADDRESS VALUE genesisport
  22.     ISONLINE interface
  23.     IF RC=0 THEN QUIT    /* 0 = OFFLINE */
  24.   END
  25. END
  26.  
  27. LastBits:
  28.  
  29. CALL DELETEVAR(STARTEDBYYAM, "GLOBAL")
  30. CALL DELETEVAR(GENESISINTERFACE, "GLOBAL")
  31.  
  32. ADDRESS COMMAND 'delete >NIL: T:#?.unp'
  33.  
  34. EXIT 0
  35.